10 KEY
100 VARNAME
1000 RETURN
101 VARNAME
120 VARNAME
130 VARNAME
140 FOR
141 DATA
2 DEF
20 PALETTE
200 REM ----------- game ------------
2000 CLS
201 KEY
2010 FOR
202 VARNAME
2020 VARNAME
2030 NEXT
2050 IF
210 FOR
2100 VARNAME
211 FOR
2110 FOR
212 FOR
2120 IF
2130 NEXT
220 FOR
2200 FOR
2210 LOCATE
2220 NEXT
2900 WAIT KEY
2910 RUN
300 VARNAME
310 FOR
315 FOR
317 REPEAT
320 VARNAME
325 UNTIL
330 INC
335 SET ZONE
340 VARNAME
350 INK
351 INK
360 NEXT
365 REPEAT
370 FOR
371 PEN
375 GOSUB
376 LOCATE
380 NEXT
385 UNTIL
399 GOTO
40 SPRITE
400 INC
402 BELL
409 REPEAT
410 SPRITE
420 VARNAME
450 UNTIL
455 IF
460 VARNAME
470 VARNAME
475 INK
480 SPRITE
485 VARNAME
490 REPEAT
5 DIM
50 PEN
500 REPEAT
510 SPRITE
520 VARNAME
530 UNTIL
535 IF
540 VARNAME
550 VARNAME
560 INK
570 SPRITE
575 VARNAME
60 PEN
600 IF
610 VARNAME
620 INC
630 PEN
640 BOOM
650 FOR
660 SPRITE
680 INC
690 IF
699 GOTO
70 PEN
700 FOR
710 SPRITE
720 INK
721 RBOX
730 INK
731 PAINT
799 GOTO
80 LOCATE
90 IF